www.gusucode.com > 中国货源网导航程序源码 1 > 中国货源网导航程序源码 1.0/8月11日备份/login.asp
<!--#include file="mdb.asp"-->
<%
dim rs(5)
function listunder(i)
set rs(i)=server.createobject("adodb.recordset")
rs(i).open "select classid,classname,verity from feilei where topclass="&rs(i-1)("classid"),conn,1,3
while not rs(i).eof
dim topclassname
topclassname=""
for x=0 to i-1
topclassname=topclassname&rs(x)("classname")&"→"
next
fujia=""
response.write "<option value='"&rs(i)("classid")&"'>"&topclassname&rs(i)("classname")&fujia&"</option>"&vbCrLf
if i<Ubound(rs) then
call listunder(i+1)
end if
rs(i).movenext
wend
end function
set rs(2)=server.createobject("adodb.recordset")
rs(2).open "select * from title",conn,1,3
site=rs(2)("site")
siteurl=rs(2)("siteurl")
Powered=rs(2)("Powered")
Copyright=rs(2)("Copyright")
login=rs(2)("login")
rs(2).close
set rs(2)=nothing
if login<>1 then
Response.Write "<table width=100% height=100%\><tr><td width=100% height=100% align=center>"
Response.Write "网站升级中，暂时停止新站登陆，请稍后再来"
Response.Write "</td></tr></table>"
Response.End
end if
Function getcode1()
Dim test
On Error Resume Next
Set test=Server.CreateObject("Adodb.Stream")
Set test=Nothing
If Err Then
Dim zNum
Randomize timer
zNum = cint(8999*Rnd+1000)
Session("GetCode") = zNum
getcode1= Session("GetCode")
Else
getcode1= "<img src=""admin/getcode.asp"">"
End If
End Function
%>
<html>
<head>
<title><%=site%> | → 新站登录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="css/style.css" type=text/css rel=stylesheet>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<TABLE border=0 cellPadding=0 cellSpacing=0 height=28 width=950 align=center bgcolor="#eeeeee">
<tr>
<TBODY><TR ><TD height=18 width=780><td/>
<td height=18 width=170><img src="images/fav_add.gif" width=18 height=18> <a href="#" onClick="javascript:window.external.AddFavorite('http://<%=siteurl%>', '<%=site%>')" target="_self">加入收藏</a> <img src="images/homepage.gif" width="18" height="18"> <a href="#" onClick="this.style.behavior='url(#default#homepage)';this.setHomePage('http://<%=siteurl%>');return(false);">设为首页</a></TD>
</TR>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=950 align=center bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=middle align=center width=210 height=75><A href="#"><IMG height=70 src="logo.gif" width=210 border=0></A></TD>
<TD vAlign=middle align=center width=3 height=75>
<script type="text/javascript" src="come.js"></script></TD>
<TD align=center width=250><SPAN id=xiaoyu_ads02></SPAN></TD>
<TD align=center width=487><SPAN id=xiaoyu_ads01></SPAN></TD></TR>
</tbody></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=950 align=center border=0 background=images/tkbg.GIF>
<TBODY>
<TR>
<TD height=30 align="center" width="94"><A href="/" target="_blank"><FONT color=#ffffff><b>导航首页</b></FONT></A>
<TD align="center" width="85"><A href="html/xiaoyu_url0116.htm" target="_blank"><FONT color=#ffffff><b>精美饰品</b></FONT></A>
<TD align="center" width="81"><A href="html/xiaoyu_url0117.htm" target="_blank"><FONT color=#ffffff><b>男装货源</b></FONT></A>
<TD align="center" width="85"><A href="html/xiaoyu_url0118.htm" target="_blank"><FONT color=#ffffff><b>女装货源</b></FONT></A>
<TD align="center" width="85"><A href="html/xiaoyu_url0126.htm" target="_blank"><FONT color=#ffffff><b>女鞋货源</b></FONT></A>
<TD align="center" width="81"><A href="html/xiaoyu_url0145.htm" target="_blank"><FONT color=#ffffff><b>创意奇特</b></FONT></A>
<TD align="center" width="93"><A href="html/xiaoyu_url0135.htm" target="_blank"><FONT color=#ffffff><b>体育用品</b></FONT></A>
<TD align="center" width="84"><A href="html/xiaoyu_url0141.htm" target="_blank"><FONT color=#ffffff><b>充值点卡</b></FONT></A>
<TD align="center" width="83"><A href="html/xiaoyu_url0128.htm" target="_blank"><FONT color=#ffffff><b>男女箱包</b></FONT></A>
<TD align="center" width="82"><A href="html/xiaoyu_url0133.htm" target="_blank"><FONT color=#ffffff><b>成人保健</b></FONT></A>
<TD align="center" width="97"><A href="html/xiaoyu_url0131.htm" target="_blank"><FONT color=#ffffff><b>护肤彩妆</b></FONT></A>
</td></tr>
</TBODY></TABLE>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#7BD676">
<tr><td height="5" bgcolor="#FFFFFF"></td></tr>
<tr>
<td bgcolor="#7BD676" height="25" background="images/bg25.gif"><FONT color=#000033>您的位置：</FONT><a href="http://<%=siteurl%>"><FONT color=#0000ff><%=site%></FONT></a> → 网站登录</FONT></b></td>
</tr>
</table>
<table width="760" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" height="35">
<%
'统计
Set ClassCount=Server.CreateObject("Adodb.Recordset")
Sql= "Select * from feilei order by classid"
ClassCount.open Sql,conn,1,1
Set QCount=Server.CreateObject("Adodb.Recordset")
Q_Sql="Select * from detail"
QCount.open Q_Sql,conn,1,1
Set WebCount=Server.CreateObject("Adodb.Recordset")
Web_Sql="Select * from detail where verity=1"
WebCount.open Web_Sql,conn,1,1
Set FCount=Server.CreateObject("Adodb.Recordset")
F_Sql="Select * from detail where verity=0"
FCount.open F_Sql,conn,1,1
%>
[<%=site%> 有分类<font color="#FF0000"><%=ClassCount.RecordCount%></font>个 网站总数<font color="#FF0000"><%=QCount.RecordCount%></font>个 已审网站<font color="#FF0000"><%=WebCount.RecordCount%></font>个 未审网站<font color="#FF0000"><%=FCount.RecordCount%></font>个]
<%
ClassCount.close
Set ClassCount = Nothing
QCount.close
Set QCount = Nothing
WebCount.close
Set WebCount = Nothing
FCount.close
Set FCount = Nothing '统计结束
%>
</td></tr></table>
<TR>
<TD>
<table width="760" border="0" align="center" cellpadding="5" cellspacing="1">
<TR><TD height="5"></TD></TR>
<tr>
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="54%" height="284" valign="top">
<table width="98%" height="281" border="0" cellpadding="5" cellspacing="1" bgcolor="#D9D5CA">
<tr>
<td bgcolor="#eeeeee">一、条件义务</td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><font color="#000000"></font><font color="#FF0000">提交前请在您的首页放上本站的连接，代码如下:</font><br>
<textarea name="textfield" cols="50" rows="2"><a href=http://www.100-86.com target=_blank>中国货源网</a></textarea>
<textarea name="textarea" cols="50" rows="3"><a href=http://www.100-86.com target=_blank><img height=31 src="http://www.100-86.com/logo/logo.gif" width=88 border=0></a></textarea></td>
</tr>
<tr><td bgcolor="#eeeeee">二、查询是否已收录</td>
</tr>
<tr>
<td height="40" bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center">
<form action="search.asp" method="post"><input name="word">
<select name="by"><option value='title'>网站名称</option>
<option value='url'>网站url</option>
</select>
<input type="hidden" name="action" value="delete">
<input type="submit" value="搜索">
</td></form></tr>
</table>
</td></tr>
<tr>
<td bgcolor="#eeeeee">三、帮助说明</td>
</tr>
<tr>
<td height="100" align="center" bgcolor="#FFFFFF">
<FONT color=#009900>
【未做本站连接不会审核，审核后取消本站连接也会删除】
<BR><br>
【不管贵站有无流量，只要符合<FONT color=#ff0000>服务条款</FONT>的均可得到审核】
<BR><br>
【做好本站连接，以后每次来访一IP即可在首页排名第一】
<BR><br>
【申请完成获得合适代码请放在贵站首页或最醒目的位置】</FONT>
</td></tr>
</table>
<br></td>
<td width="46%" valign="top">
<p></p>
<table border="0" cellspacing="1" bordercolorlight="#C0C0C0" bgcolor="#D9D5CA" width="100%" align="center" cellpadding="5">
<tr bgcolor="#eeeeee">
<form action="chklogin.asp" method=POST name=form>
<td colspan="2" bgcolor="eeeeee"> 四、填写贵站相关资料</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="80" align="center">网站名称:</td>
<td>
<input size="20" name="title" type="text" class="TDBorder">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">网站分类:</div>
</td>
<td>
<select name="leibie">
<option selected value='0'>请选择网址分类</option>
<%
set rs(0)=server.createobject("adodb.recordset")
rs(0).open "select classid,classname,verity from feilei where topclass=0",conn,1,3
while not rs(0).eof
fujia=""
response.write "<option value='"&rs(0)("classid")&"'>"&rs(0)("classname")&fujia&"</option>"&vbCrLf
call listunder(1)
rs(0).movenext
wend
%>
</select>
</td></tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">E-mail:</div>
</td>
<td>
<input size="20" name="Email" type="text" class="TDBorder">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">网站地址:</div>
</td>
<td>
<input size="27" name="url" type="text" value="http://" class="TDBorder">
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">网站简介:</div>
</td>
<td>
<textarea cols="30" id="MsgForm" name="memo" rows="4" ></textarea><br>
介绍在100个汉字以内
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td>
<div align="center">验证码:</div>
</td>
<td>
<input type="text" name="mofei" class="textarea" size="19"> <%=getcode1()%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td align="center" colspan=2>
<input type="hidden" name="action" value="add_wz">
<input type="submit" value="提交" style="FONT-SIZE: 9pt">
</td></tr></table></td></tr></table></td></tr></form></table>
<table align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center">
<p>中国货源网只收录网店货源、网店代理、网店代销、批发进货等货源相关的商城网站.</p>
</td></tr></table>
<P align="center">
<font color=#000000 size=2>Copyright& 2009-2010</font> <font color=#000000 size=2><a href='http://<%=siteurl%>' target='_blank'><%=site%></a></font> <font color=#000000 size=2>All Right Reserved</font>
<BR>
<br>
<font color=#000000 size=2>Powered By</font> <a href=http://<%=siteurl%> target=_blank><font color=#ff0000 size=2><%=siteurl%></font></a>
</P>
</body>
</html>